home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1996 December / PC Answers December 1996.iso / create / corelcad / cad / count.csc < prev    next >
Encoding:
Text File  |  1996-04-25  |  499 b   |  17 lines
  1. 'This script runs an EXE file which performs counts on your named objects.
  2.  
  3. DECLARE FUNCTION WinExec LIB "kernel32" (BYVAL path AS STRING, BYVAL shw AS LONG) AS LONG ALIAS "WinExec"
  4.  
  5. exeName$ = "Countobj.exe"
  6. errmsg$ = "Countobj.EXE was not found. Please locate the file from your CorelCAD CD and place it in your PROGRAMS directory."
  7.  
  8. REM Load the application if not loaded already
  9.  
  10.     err = WinExec(exeName$, 1)
  11.     IF err < 0 THEN err = err * -1
  12.     IF err < 33 THEN MESSAGE(errmsg$)
  13.  
  14.  
  15.  
  16.  
  17.